OAlert (cMessage,[aOptions],[nRow]) --> nChoice:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
In cause of deadlock of my computer when issuing the Alert() command
I wrote the OAlert(). The difference is in used colors and in nRow
parameter to set the start row of alert window.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
cMessage: string to display in a alert window; the semicolon (;) ia a
          line separator
aOptions: array of options to select {"option1","option2"...},
          default {"OK"}
nRow:     the strt row of alert window, default is centr of the screen

Return value:
~~~~~~~~~~~~~
number of selected option from aOptions array or zero (0) if ESC was pressed

Source code is in file  Object3.prg